home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 19.zip / BS1 part 19 / how to learn assembler.adf / CH4 / 4_2A.asm < prev    next >
Assembly Source File  |  1988-02-25  |  415b  |  14 lines
  1. ;(4.2A) part of sort routine
  2. sort:
  3.      move.l     #table,a1      ; Start of data
  4.      move.l     a1,a0          ; Copy address to working register
  5.      move.l     #5,d2          ; Number of elements in the table
  6.      move.l     d2,d0          ; Copy # of elements to working register
  7.      subq       #2,d0          ; Correct counter value
  8.      clr        d1             ; Erase flag
  9.  
  10.  
  11. table:  dc.w 3,6,8,9,5
  12.  
  13.  end
  14.